5 POKE650,128:POKE2,0:POKE828,5:POKE788,52:PRINTCHR$(147)
6 FA$="[144][159][156][158][129][149][150][151][152][153][154][155]"
7 POKE53281,.:POKE53280,.
8 PRINT"  FARBE AENDERN:           F1"
9 PRINT"  LOESCHEN          MIT SPACE"
10 PRINT"  BASIC-ZEILEN GENERIEREN: F8"
13 PRINT"          BITTE ETWAS WARTEN!"
14 FORI=0TO999:POKE20000+I,32:POKE30000+I,5:NEXT
15 PRINT"[147]START MIT  F1":FORT=1TO100:NEXT
16 A=1-A:IFATHEN PRINT"";:GOTO15
17 GETA$:IFA$="[133]"THEN19
18 PRINT"[146]":GOTO15
19 GOTO36
20 POKE788,49:Y=-1
21 A$="":Y=Y+1:PRINT"[147][146]PASS #"Y:IFY>24THENCLR:GOTO72
22 FORX=0TO39:C=PEEK(20000+Y*40+X)
23 F=PEEK(30000+Y*40+X)
24 IFF<>PEEK(828)ANDC<>32THENA$=A$+MID$(FA$,F+1,1):POKE828,F
25 IFC<128ANDPEEK(2)=1THENPOKE2,0:A$=A$+"[146]":GOTO27
26 IFC>127THENC=C-128:IFPEEK(2)=0THENPOKE2,1:A$=A$+""
27 IFC<32THENC=C+64:GOTO30
28 IFC>63ANDC<96THENC=C+32:GOTO30
29 IFC>97ANDC<128THENC=C+64
30 A$=A$+CHR$(C):NEXT
31 SA=100
32 PRINT""SA"?"CHR$(34)A$CHR$(34)";"
33 PRINT"31 SA="SA+1:PRINT"Y="Y":FA$="CHR$(34)FA$CHR$(34)":GOTO21"
34 POKE631,13:POKE632,13:POKE633,13
35 POKE198,3:PRINT"":END
36 B1=1024:B2=20000:F1=55296:F2=30000
37 PRINT"[147]":X=0:Y=0:F=5
38 KO=40*Y+X
39 P1=PEEK(B1+KO):P2=PEEK(F2+KO)
40 POKEB1+KO,160:POKEB2+KO,160:POKEF1+KO,F:POKEF2+KO,F
41 GETA$:IFA$=""THEN41
42 IFA$=""THENRV=1:GOTO41
43 IFA$="[146]"THENRV=0:GOTO41
44 IFA$=""THENGOSUB70:GOSUB60:GOTO38
45 IFA$="[157]"THENGOSUB70:GOSUB62:GOTO38
46 IFA$="[145]"THENGOSUB70:GOSUB64:GOTO38
47 IFA$=""THENGOSUB70:GOSUB66:GOTO38
48 IFA$="[133]"THENGOSUB70:GOSUB68:GOTO38
49 IFA$="[140]"THENGOSUB70:GOTO20
50 CO=ASC(A$)
51 IFCO>127ANDCO<161THEN41
52 IFCO>63ANDCO<96THENCO=CO-64
53 IFCO>31ANDCO<64THENGOTO58
54 IFCO>95ANDCO<128THENCO=CO-32
55 IFCO>159ANDCO<192THENCO=CO-64
56 IFCO>191ANDCO<255THENCO=CO-128
57 IFCO=255THENCO=94
58 IFRV=1THENCO=CO+128
59 POKEB1+KO,CO:POKEB2+KO,CO:GOSUB60:GOTO38
60 X=X+1:IFX>39THENX=0:Y=Y+1:IFY>24THENY=24
61 RETURN
62 X=X-1:IFX<0THENX=39:Y=Y-1:IFY<0THENY=0
63 RETURN
64 Y=Y-1:IFY<0THENY=0
65 RETURN
66 Y=Y+1:IFY>24THENY=24
67 RETURN
68 F=F+1:IFF>15THENF=0
69 RETURN
70 POKEB1+40*Y+X,P1:POKEB2+40*Y+X,P1
71 POKEF1+40*Y+X,P2:POKEF2+40*Y+X,P2:RETURN
72 PRINT"[147]"A:PRINT"A="A+1":GOTO72":POKE631,13:POKE632,13:POKE198,2:PRINT"":END